#' @title Annual Precipitation Density Task
#' @name mlr_tasks_precip
#' @template task
#' @templateVar type Dens
#' @templateVar ftype density
#' @templateVar id precip
#' @templateVar data precip
NULL
load_precip = function(id = "precip") {
  b = as_data_backend(data.table::data.table(precip = load_dataset("precip", "datasets",
    keep_rownames = TRUE)))
  b$hash = "_mlr3_tasks_precip_"
  TaskDens$new(id, b, label = "Annual Precipitation")
}

#' @title Old Faithful Eruptions Density Task
#' @name mlr_tasks_faithful
#' @template task
#' @templateVar type Dens
#' @templateVar ftype density
#' @templateVar id faithful
#' @templateVar data faithful
#' @details Only the `eruptions` column is kept in this task.
NULL
load_faithful = function(id = "faithful") {
  b = as_data_backend(data.table::data.table(eruptions = load_dataset("faithful", "datasets",
    keep_rownames = TRUE)$eruptions))
  b$hash = "_mlr3_tasks_faithful_"
  TaskDens$new(id, b, label = "Old Faithful Eruptions")
}
